1. ALV VS. NON-ALV 

жу Report  ZRISHI ALV VS NON ALV 

report zrishi alv vs non alv no standard page heading. 
data v kunnr type kunnr. 


selection-screen begin of block bl with frame title text-001. 
select-options s kunnr for v kunnr. 
parameters: p alv as checkbox, 

p nonalv as checkbox. 
selection-screen end of block bl. 


data: it knal type table of knal, 
wa knal type knal. 
select * into table it knal from knal where kunnr in s kunnr. 


if p nonalv - 'X'. 
iT it knal is not initial. 
write:/ 'Customer Num.' color 1, 
15 "Country" со1ог 2; 
25 'Name' color 3, 
45 'City' color 4. 
uline. 
loop at it knal into wa knal. 
write:/ wa knal-kunnr, 
15 wa Кпа1-1апа1, 
25 wa knal-namel, 
45 wa knal-ort01. 
endloop. 
endif. 
endif. 


if ք айм = 'X'. 

call function 'REUSE ALV GRID DISPLAY' 

exporting 
I INTERFACE CHECK Տ" 
I BYPASSING BUFFER = ' ' 
I BUFFER ACTIVE = ' ' 
I CALLBACK PROGRAM = ' ' 
I CALLBACK РЕ STATUS SET = ' ' 
I CALLBACK USER COMMAND = ' ' 


X хо» X ж X 


х 


I САШВАСК ТОР ОҒ PAGE 
I CALLBACK HTML ТОР OF PAGE 


I CALLBACK HTML END OF LIST 


i structure name 

I BACKGROUND ID 

I GRID TITLE 

I GRID SETTINGS 

IS LAYOUT 

IT FIELDCAT 

IT EXCLUDING 

IT SPECIAL GROUPS 
IT SORT 

IT FILTER 

IS SEL HIDE 

I DEFAULT 

I SAVE 

IS VARIANT 

IT EVENTS 

IT EVENT EXIT 

IS PRINT 

IS REPREP ID 

I SCREEN START COLUMN 
I SCREEN START LINE 
I SCREEN END COLUMN 
I SCREEN END LINE 
I HTML HEIGHT TOP 

I HTML HEIGHT END 
IT ALV GRAPHICS 

IT HYPERLINK 

IT ADD FIELDCAT 

IT EXCEPT QINFO 


X X X X X X ж X X X X X X X X X X X X X X X X X X X X X X ж ж 


x 


х 


IR SALV FULLSCREEN ADAPTER 
IMPORTING 

E EXIT CAUSED BY CALLER 

ES EXIT CAUSED BY USER 

tables 

t outtab 

EXCEPTIONS 

PROGRAM ERROR 

OTHERS 


if sy-subrc <> 0. 
ж Implement suitable error handling here 
endif. 


endif. 


2. ALV USING MANUAL FIELD CATALOG 
же Report | ZRISHI ALV MANUAL 
REPORT zrishi alv manual. 
TYPE-POOLS 5115. 

TYPES: BEGIN OF ty Кпа1, 
kunnr TYPE kunnr, 
namel TYPE namel, 
landl TYPE 1апа1, 
ort01 TYPE ort01, 
prty TYPE zprty, 
clr row(4) TYPE c, 
trf light TYPE i, 


END OF ty knal. 


DATA: ії knal TYPE TABLE OF (ty knal, 
it fieldcat TYPE slis t fieldcat alv, 
wa fieldcat TYPE 5115 fieldcat alv, 
is layout TYPE slis layout alv, 
wa knal TYPE ty knal. 


DATA v kunnr TYPE kunnr. 
SELECT-OPTIONS s kunnr FOR v kunnr. 
START-OF-SELECTION. 
SELECT kunnr namel landl ог%01 prty INTO TABLE it knal FROM 
knal WHERE kunnr IN s kunnr AND prty «» space. 
END -OF - SELECTION. 
CLEAR wa fieldcat. 


wa fieldcat-fieldname 


= 'KUNNR'. 
wa fieldcat-col pos - 1. 


wa fieldcat-seltext т = 'Customer Мо.'. 
APPEND wa fieldcat TO it fieldcat. 


CLEAR wa fieldcat. 


wa fieldcat-fieldname = 'МАМЕ1'. 
wa fieldcat-col pos - 2. 
wa fieldcat-seltext m = 'Name'. 


APPEND wa fieldcat TO it fieldcat. 


CLEAR wa fieldcat. 

wa fieldcat-fieldname - 
wa fieldcat-col pos - 3. 
ма fieldcat-seltext m -'Country'. 
APPEND wa fieldcat TO it fieldcat. 


'Լճին1'. 


CLEAR wa fieldcat. 

wa fieldcat-fieldname - 
wa fieldcat-col pos = 4. 
wa fieldcat-seltext m -'City'. 

wa fieldcat-hotspot = 'X'. 

APPEND wa fieldcat TO it fieldcat. 


"ORTOI", 


CLEAR wa fieldcat. 


wa fieldcat-fieldname = 'PRTY'. 
wa fieldcat-col pos = 5. 
wa fieldcat-seltext m -'Priority'. 


APPEND wa fieldcat TO it fieldcat. 


*CLEAR WA FIELDCAT. 

а WA FIELDCAT-HOTSPOT = 'X'. 

ա MODIFY IT FIELDCAT FROM WA FIELDCAT TRANSPORTING ЕМРН 
ASIZE WHERE FIELDNAME = 'ОКТОЇ". 


is layout-info fieldname - 'CLR ROW'. 

CLEAR wa knal. 

wa knal-clr row - 'C71'. 

MODIFY it knal FROM wa knal TRANSPORTING clr row WHERE kunnr 
- '0000001002'. 


X X% X % Հ Հ X Հ X Հ X Հ Հ 


X X х ж Հ 


is layout-lights fieldname = "ТЕР LIGHT'. 


CLEAR wa knal. 

ма knal-trf light = 1. 

MODIFY it knal FROM ма knal TRANSPORTING trf light 
WHERE prty Հ 'L'. 


CLEAR wa knal. 

ма knal-trf light = 2. 

MODIFY it knal FROM ма knal TRANSPORTING trf light 
WHERE prty - 'M'. 


CLEAR wa knal. 

ма knal-trf light = 3. 

MODIFY it knal FROM ма knal TRANSPORTING trf light 
WHERE prty = 'H'. 


CALL FUNCTION 'REUSE ALV GRID DISPLAY' 

EXPORTING 
I INTERFACE CHECK = ' ' 
I BYPASSING BUFFER Տ" 

I BUFFER ACTIVE = ' ' 
I CALLBACK PROGRAM Տ" 
I CALLBACK PF STATUS SET Յո" 
I CALLBACK USER COMMAND Յո" 
I CALLBACK ТОР OF PAGE = ‘б! 
I CALLBACK HTML ТОР OF PAGE = ' ' 
I CALLBACK HTML END OF LIST = ' ' 

I STRUCTURE NAME = 'KNAI' 
I BACKGROUND ID Տ" 
I GRID TITLE = 
I GRID SETTINGS = 

is layout = 15 layout 
it fieldcat = it fieldcat 
IT EXCLUDING = 
IT SPECIAL GROUPS = 
IT SORT = 
IT FILTER = 
IS SEL HIDE = 


I DEFAULT = X! 
I SAVE = ' ' 
IS VARIANT - 
IT EVENTS - 
IT EVENT EXIT - 
IS PRINT - 
IS REPREP ID - 
I SCREEN START COLUMN - 
I SCREEN START LINE ш 
I SCREEN END COLUMN - 
I SCREEN END LINE - 
I HTML HEIGHT TOP - 
I HTML HEIGHT END - 
IT ALV GRAPHICS = 
ІТ HYPERLINK = 
IT ADD FIELDCAT - 
IT EXCEPT QINFO = 
IR SALV FULLSCREEN ADAPTER - 
IMPORTING 
E EXIT CAUSED BY CALLER - 
ES EXIT CAUSED BY USER - 
TABLES 
t outtab 
* EXCEPTIONS 
Т PROGRAM ERROR - 1 
a OTHERS - 2 


X X Հ Ե Հ X X 0X Հ X Հ Հ Հ Հ X Հ Հ Հ Հ Հ Հ 
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IF sy-subrc <> 0. 

* Implement suitable error handling here 
ENDIF. 

3. ALV USING AUTOMATIC FIELD CATALOG 


*& Report ZRISHI ALV AUTO FCATALOG 
REPORT 211611 alv auto fcatalog. 
DATA v kunnr TYPE kunnr. 
TYPE-POOLS slis. 
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001. 
SELECT-OPTIONS s kunnr FOR v kunnr. 
SELECTION-SCREEN END OF BLOCK bl. 


DATA: it Кпа1 ТҮРЕ TABLE ОҒ Кпа1, 
it fieldcat ТҮРЕ 5115 t fieldcat alv, 
wa fieldcat TYPE LINE OF slis t fieldcat alv. 


SELECT * INTO TABLE it knal FROM knal WHERE kunnr IN s kunnr. 


CALL FUNCTION 'REUSE ALV FIELDCATALOG MERGE!' 
EXPORTING 
Ք I PROGRAM МАМЕ - 
Ի I INTERNAL ТАВМАМЕ - 
i structure name = 'КМА1' 
I CLIENT NEVER DISPLAY = X! 
I INCLNAME - 
I BYPASSING BUFFER - 
I BUFFER ACTIVE - 
CHANGING 
ct fieldcat - 1% fieldcat 
ЕХСЕРТТОМ5 
INCONSISTENT INTERFACE - 1 
PROGRAM ERROR - 2 
ОТНЕК5 = 3 


хх ж Հ 


ж 
ж 
ж 
ж 


IF sy-subrc <> 0. 

ж Implement suitable error handling here 

ENDIF. 

CLEAR wa fieldcat. 

wa fieldcat-emphasize - 'C61'. 

MODIFY it fieldcat FROM wa fieldcat TRANSPORTING emphasize WHE 
RE fieldname = '08101'. 


CALL FUNCTION 'REUSE ALV GRID DISPLAY' 
EXPORTING 
I INTERFACE CHECK ='! 
I BYPASSING BUFFER = ' ' 
I BUFFER ACTIVE = ' ' 
I CALLBACK PROGRAM = ' ' 
I CALLBACK PF STATUS SET = ' ' 


X хо» x Հ 


x % ж 


хх * x 


X X X X X X X X X X X X X X ж X X X X X X X X ж X ж 


I CALLBACK USER COMMAND 
I CALLBACK ТОР ОҒ PAGE 
I CALLBACK HTML ТОР OF PAGE 


I CALLBACK HTML END OF LIST 


i structure name 

I BACKGROUND ID 

I GRID TITLE 

I GRID SETTINGS 

IS LAYOUT 

it fieldcat 

IT EXCLUDING 

IT SPECIAL GROUPS 
IT SORT 

IT FILTER 

IS SEL HIDE 

I DEFAULT 

I SAVE 

IS VARIANT 

IT EVENTS 

IT EVENT EXIT 

IS PRINT 

IS REPREP ID 

I SCREEN START COLUMN 
I SCREEN START LINE 
I SCREEN END COLUMN 
I SCREEN END LINE 

I HTML HEIGHT ТОР 

I HTML HEIGHT END 
IT ALV GRAPHICS 

IT HYPERLINK 

IT ADD FIELDCAT 

IT EXCEPT QINFO 


IR SALV FULLSCREEN ADAPTER 
IMPORTING 
E EXIT CAUSED BY CALLER 


ES EXIT CAUSED BY USER 


TABLES 


t outtab 


* EXCEPTIONS 


ж 


РКОСКАМ_ЕККОК 


1% Кпа1 


1 


2 OTHERS = 2 


IF sy-subrc <> 0. 
ж Implement suitable error handling here 
ENDIF. 


4.ALV USING SEMI AUTOMATIC FIELDCATALOG 


же Report | ZRISHI ALV VS NON ALV 
*& 


REPORT zrishi alv semi auto NO STANDARD PAGE HEADING. 
DATA: v kunnr TYPE kunnr. 


SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001. 
SELECT-OPTIONS s kunnr FOR v kunnr. 
PARAMETERS: p alv AS CHECKBOX, 
p nonalv AS CHECKBOX. 
SELECTION-SCREEN END OF BLOCK bl. 


SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002. 
PARAMETERS: p auto AS CHECKBOX, 

p semi AS CHECKBOX. 
SELECTION-SCREEN END OF BLOCK b2. 


DATA: it knal TYPE TABLE OF knal, 
wa knal TYPE knal, 
it fieldcat TYPE 5115 t fieldcat alv, 
wa fieldcat TYPE LINE OF slis t fieldcat alv. 
SELECT * INTO TABLE it knal FROM knal WHERE kunnr IN s kunnr. 


IF p nonalv - 'X'. 
IF it knal IS NOT INITIAL. 
WRITE:/ 'Customer Num.' COLOR 1, 


15 'Country' COLOR 2, 
25 'Name' COLOR 3, 
45 'City' COLOR 4. 
ULINE. 
LOOP AT it knal INTO wa knal. 
WRITE:/ wa knal-kunnr, 
15 wa Кпа1-1апа1, 
25 wa knal-namel, 
45 wa knal-ort01. 
ENDLOOP. 
ENDIF. 
ENDIF. 


IF palv= 'X'. 
IF p auto = 'X'. 
CALL FUNCTION 'REUSE ALV GRID DISPLAY' 
EXPORTING 


I BUFFER ACTIVE 


I CALLBACK PF STATUS SET - 
I CALLBACK USER COMMAND - 
I CALLBACK TOP ОҒ PAGE - 
I CALLBACK HTML ТОР ОҒ PAGE - 
I CALLBACK HTML END OF LIST - 


X “х Հ Կ X X X Հ X 


i structure name - 


I BACKGROUND ID 
I GRID TITLE 

I GRID SETTINGS 
IS LAYOUT 

IT FIELDCAT 

IT EXCLUDING 


IT SORT 

IT FILTER 
IS SEL HIDE 
I DEFAULT 
I SAVE 

IS VARIANT 


X X Հ X X Հ Հ Հ Հ X X ж X 


1 1МТЕВРАСЕ СНЕСК - 
I BYPASSING BUFFER - 


I CALLBACK PROGRAM - 


IT SPECIAL GROUPS - 


IT EVENTS - 
IT EVENT EXIT - 
IS PRINT - 
IS REPREP ID - 
I SCREEN START COLUMN - 
I SCREEN START LINE - 
I SCREEN END COLUMN - 
I SCREEN END LINE - 
I HTML HEIGHT TOP - 
I HTML HEIGHT END - 
IT ALV GRAPHICS - 
IT HYPERLINK = 
IT ADD FIELDCAT = 
ІТ EXCEPT QINFO - 
IR SALV FULLSCREEN ADAPTER - 
IMPORTING 
E EXIT CAUSED BY CALLER - 
ES EXIT CAUSED BY USER - 
TABLES 
t outtab - it knal 
* EXCEPTIONS 
* PROGRAM ERROR - 1 
Ж ОТНЕК5 = 2 


X ж Հ хо X Հ X Հ Հ X Հ X Հ Հ X X Հ Հ 


ENDIF. 
IF sy-subrc <> 0. 
* Implement suitable error handling here 
ENDIF. 
IF ք semi = 'X'. 
CALL FUNCTION 'REUSE ALV FIELDCATALOG MERGE ' 
EXPORTING 
* I PROGRAM NAME = 
Ж I INTERNAL ТАВМАМЕ ш 
i structure name = 'КМА1' 
I CLIENT NEVER DISPLAY = 'X' 
I ІМСІ МАМЕ ш 
I BYPASSING BUFFER - 
I BUFFER ACTIVE ш 
CHANGING 
ct fieldcat = it fieldcat 


жж ож Հ 


* ЕХСЕРТТОМ5 

Ж INCONSISTENT INTERFACE = 1 

и РКОСКАМ_ЕККОК = 2 
m OTHERS - 3 


IF sy-subrc <> 0. 
ж Implement suitable error handling here 
ENDIF. 
CLEAR wa fieldcat. 
wa fieldcat-emphasize = 'C71'. 
MODIFY it fieldcat FROM wa fieldcat TRANSPORTING emphasize 
WHERE fieldname - 'NAM 
El"; 
CLEAR wa fieldcat. 
wa fieldcat-emphasize = 'C61'. 
MODIFY it fieldcat FROM wa fieldcat TRANSPORTING emphasize 
WHERE fieldname - 'ORT 
91", 


CALL FUNCTION 'REUSE ALV GRID DISPLAY' 
EXPORTING 
I INTERFACE CHECK Յո" 
I BYPASSING BUFFER = ' ' 
I BUFFER ACTIVE = ' ' 
I CALLBACK PROGRAM = ' ' 
I CALLBACK PF STATUS SET Յո" 
I CALLBACK USER COMMAND Տ" 
I CALLBACK ТОР OF PAGE = ' ' 
I CALLBACK HTML ТОР OF PAGE = 57 
I CALLBACK HTML END OF LIST = ' ! 
I STRUCTURE NAME = 'KNA1' 
I BACKGROUND ID = ' ' 
I GRID TITLE - 
I GRID SETTINGS = 
IS LAYOUT - 
it fieldcat 
IT EXCLUDING - 
IT SPECIAL GROUPS - 
IT SORT - 
IT FILTER - 


X X% Հ Կ Հ хо Հ Հ X X X X ж Հ 
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H- 
(D 
= 
о. 
о 
о) 
ct 


ж ж * X 


IS SEL HIDE - 
I DEFAULT - 
I SAVE = ' ! 
IS VARIANT = 
IT EVENTS = 
IT EVENT EXIT = 
IS PRINT = 
IS REPREP ID = 
I SCREEN START COLUMN = 0 
I SCREEN START LINE = 0 
I SCREEN END COLUMN = 0 
I SCREEN END LINE = 0 
I HTML HEIGHT ТОР = 0 
I HTML HEIGHT END = 0 
ІТ ALV GRAPHICS - 
IT HYPERLINK ш 
IT ADD FIELDCAT - 
IT EXCEPT QINFO = 
IR SALV FULLSCREEN ADAPTER - 
IMPORTING 
E EXIT CAUSED BY CALLER - 
ES EXIT CAUSED BY USER - 
TABLES 
t outtab - 1% knal 
ЕХСЕРТТОМ5 
* PROGRAM ERROR - 1 
* OTHERS - 2 


X X Հ % X Հ Հ Հ Հ Հ Հ X X X Հ Հ X Հ X Հ ж Հ 


х 


IF sy-subrc <> 0. 
ж Implement suitable error handling here 
ENDIF. 
ENDIF. 
ENDIF. 


5. ALV CELL COLORING PROGRAM 


*& Report | ZRISHI ALV MANUAL 
REPORT zrishi alv cell coloring. 


ТҮРЕ-Р0015 5115. 
РАТА у Киппг ТҮРЕ Киппг. 
SELECT-OPTIONS s kunnr FOR v kunnr. 


TYPES: BEGIN OF ty knal, 
kunnr TYPE kunnr, 
namel TYPE namel, 
landl TYPE 1апа1, 
ort01 TYPE ort01, 
prty TYPE zprty, 
clr row(4) TYPE c, 
trf tight ТҮРЕ 1, 
cell tab TYPE slis t specialcol alv , 
END OF ty Кпа1. 


TYPES: BEGIN OF ty temp knal, 
kunnr TYPE kunnr, 
namel TYPE namel, 
landl TYPE 1апа1, 
ort01 TYPE ort01, 
prty TYPE zprty, 

END OF ty temp knal. 


DATA: it knal TYPE TABLE ОҒ Ху knal, 
it fieldcat TYPE slis t fieldcat alv, 
it temp knal TYPE TABLE OF ty temp knal, 
itab TYPE slis t specialcol айм, 
wa knal TYPE ty knal, 
wa fieldcat TYPE 65115 fieldcat alv, 
wa temp knal TYPE ty temp knal, 
wa TYPE LINE OF slis t specialcol alv , 
is layout TYPE slis layout alv. 


START -OF-SELECTION. 


SELECT Киппг namel landl ог%01 prty INTO TABLE it temp knal FR 
OM knal WHERE kunnr IN s kunnr AND prty «» space. 


*Move Data from ІТ TEMP KNA1 To IT КМА1 
LOOP AT it temp knal INTO wa temp knal. 
wa knal-kunnr - wa temp knal-kunnr . 
wa knal-namel wa temp knal-namel . 
wa Кпаї-Тапаї wa temp knal-landl. 
wa Кпа1-0г101 = wa temp knal-ort01. 
wa knal-prty - wa temp knal-prty. 
APPEND wa knal TO it knal. 
ENDLOOP. 


END - ОҒ - SELECTION. 


CLEAR wa fieldcat. 


wa fieldcat-fieldname - 'KUNNR'. 
wa fieldcat-col pos - 1. 
wa fieldcat-seltext m - 'Customer No.'. 


APPEND wa fieldcat TO it fieldcat. 


CLEAR wa fieldcat. 


wa fieldcat-fieldname = 'МАМЕ1'. 
wa fieldcat-col pos - 2. 
wa fieldcat-seltext m = 'Name'. 


APPEND wa fieldcat TO it fieldcat. 


CLEAR wa fieldcat. 


wa fieldcat-fieldname = 'LANDI1'. 
wa fieldcat-col pos - 3. 
wa fieldcat-seltext m -'Country'. 


APPEND wa fieldcat TO it fieldcat. 


CLEAR wa fieldcat. 

wa fieldcat-fieldname - 
wa fieldcat-col pos = 4. 
wa fieldcat-seltext m -'City'. 

wa fieldcat-hotspot = 'X'. 

APPEND wa fieldcat TO it fieldcat. 


'08101'. 


CLEAR ма fieldcat. 
wa fieldcat-fieldname 


= 'PRTY'. 
wa fieldcat-col pos = 5. 


wa fieldcat-seltext m -'Priority'. 
APPEND wa fieldcat TO it fieldcat. 


*CLEAR WA FIELDCAT. 

Е WA FIELDCAT-HOTSPOT = 'X'. 

* MODIFY IT FIELDCAT FROM WA FIELDCAT TRANSPORTING ЕМРН 
ASIZE WHERE FIELDNAME - 'ORTOI'. 


15 layout-info fieldname - 'CLR ROW'. 

CLEAR wa knal. 

wa knal-clr row - 'C71'. 

MODIFY it knal FROM wa knal TRANSPORTING clr row WHERE kunnr 
- '0000001002'. 


15 layout-lights fieldname = "ТЕР LIGHT'. 


CLEAR wa knal. 

ма knal-trf light = 1. 

MODIFY it knal FROM ма knal TRANSPORTING trf light 
WHERE prty Հ 'L'. 


CLEAR wa knal. 

ма knal-trf light = 2. 

MODIFY it knal FROM wa knal TRANSPORTING trf light 
WHERE prty = 'M'. 


CLEAR wa knal. 

ма knal-trf light = 3. 

MODIFY it knal FROM wa knal TRANSPORTING trf light 
WHERE prty = 'H'. 


is layout-coltab fieldname - 'CELL TAB'. 


CLEAR wa. 

wa-fieldname - 'PRTY'. 
wa-color-col - 6. 
wa-color-int = 1 


APPEND wa TO itab. 


X X Հ % X Հ Հ Հ Հ X X ж X 


X жо» X X X X X ж X 


CLEAR wa. 

wa-fieldname = 'KUNNR'. 
wa-color-col 5. 
wa-color-int - 1. 
АРРЕМР wa TO itab. 


CLEAR wa knal. 

wa knal-cell tab - itab. 

MODIFY it knal FROM wa knal TRANSPORTING cell tab 
WHERE kunnr - '0000001000'. 


CALL FUNCTION 'REUSE ALV GRID DISPLAY' 

EXPORTING 
I INTERFACE CHECK Տ" 
I ВҮРА551М6 BUFFER = ' ' 

I BUFFER ACTIVE Տ 
I CALLBACK PROGRAM Տ 
I CALLBACK PF STATUS SET = 
I CALLBACK USER COMMAND =" 
I CALLBACK ТОР OF РАСЕ 254 
I CALLBACK HTML TOP OF PAGE Տ" 
I CALLBACK HTML END ОР LIST Տ" 

I STRUCTURE NAME = 'KNAI' 
I BACKGROUND ID = 
І GRID TITLE - 

I GRID SETTINGS - 
is layout - is layout 
it fieldcat - it fieldcat 
IT EXCLUDING - 
IT SPECIAL GROUPS - 
IT SORT = 
IT FILTER - 
IS SEL HIDE - 
I DEFAULT = X! 
I SAVE Eos 
IS VARIANT - 
IT EVENTS - 
IT EVENT EXIT - 


15 PRINT - 
IS REPREP ID - 
I SCREEN START COLUMN - 
I SCREEN START LINE - 
I SCREEN END COLUMN - 
I SCREEN END LINE - 
I HTML HEIGHT TOP = 
I HTML HEIGHT END - 
IT ALV GRAPHICS - 
IT HYPERLINK - 
IT ADD FIELDCAT = 
ІТ EXCEPT QINFO - 
IR SALV FULLSCREEN ADAPTER - 
IMPORTING 
E EXIT CAUSED BY CALLER - 
ES EXIT CAUSED BY USER - 
TABLES 
t outtab 
* EXCEPTIONS 
к PROGRAM ERROR - 1 
$5 OTHERS - 2 


X X Հ Հ Հ Հ X Հ X X Հ X X Հ Հ 


1% Кпа1 


IF sy-subrc <> 0. 
ж Implement suitable error handling here 
ENDIF. 


6.ALV EVENT HANDLING USING FM 


же Report  ZRISHI ALV EVENT HANDLING 
*& 


REPORT 211511 атм event handling. 


TYPE-POOLS 5115. 
DATA v kunnr TYPE Киппг. 
SELECT-OPTIONS s kunnr FOR v kunnr. 


TYPES: BEGIN OF ty Кпа1, 
kunnr TYPE kunnr, 
namel TYPE namel, 
landl TYPE 1апа1, 
ՕՐէ01 TYPE ort01, 
row clr(4) TYPE c, 
END OF ty Кпа1. 


DATA: it knal TYPE TABLE OF ty knal, 
wa knal TYPE ty knal, 
it fieldcat TYPE slis t fieldcat alv, 
wa fieldcat TYPE LINE OF slis t fieldcat alv, 
it events TYPE slis t event, 
wa events TYPE LINE OF slis t event, 
is layout TYPE slis layout alv. 


START-OF-SELECTION. 
SELECT kunnr namel landl ог%01 INTO TABLE it knal FROM knal 
WHERE kunnr IN s kunnr. 


CLEAR wa events. 

wa events-name - 'TOP OF PAGE'. 
wa events-form "СЕТ CUST БАТА". 
APPEND wa events ТО it events. 


END-OF - SELECTION. 


CLEAR wa fieldcat. 


wa fieldcat-fieldname - 'KUNNR'. 
ма fieldcat-col pos = '1'. 
wa fieldcat-seltext m - 'Customer No.'. 


APPEND wa fieldcat TO it fieldcat. 


CLEAR wa fieldcat. 
wa fieldcat-fieldname = 'МАМЕ1'. 
wa fieldcat-col pos - 2. 


x 


X % X X X X X X X 


ма fieldcat-seltext m = 'Name'. 
APPEND wa fieldcat TO it fieldcat. 


CLEAR wa fieldcat. 

ма fieldcat-fieldname 

wa fieldcat-col pos = 3. 
wa fieldcat-seltext m ='Country'. 

APPEND wa fieldcat TO it fieldcat. 


'LAND1' 


- ա | 


CLEAR ма fieldcat. 

wa fieldcat-fieldname - 
wa fieldcat-col pos = 4. 
wa fieldcat-seltext m -'City'. 

wa fieldcat-hotspot = 'X'. 

APPEND wa fieldcat TO it fieldcat. 


'08101'. 


is layout-info fieldname = “БО СІВ". 


CLEAR wa knal. 
ма knal-row clr = 'C71'. 


MODIFY it knal FROM wa knal TRANSPORTING row clr WHERE kunnr 


"0000001000”. 


CALL FUNCTION 'REUSE ALV GRID DISPLAY' 


EXPORTING 
I INTERFACE CHECK 
I BYPASSING BUFFER 
I BUFFER ACTIVE 
i callback program 
I CALLBACK PF STATUS SET 
I CALLBACK USER COMMAND 
I CALLBACK TOP ОҒ PAGE 
I CALLBACK HTML TOP OF PAGE 
I CALLBACK HTML END OF LIST 
I STRUCTURE NAME 
I BACKGROUND ID 
I GRID TITLE 
I GRID SETTINGS 
is layout 
it fieldcat 


is layout 
it fieldcat 


ІТ EXCLUDING т 
ІТ SPECIAL GROUPS - 
IT SORT - 
IT FILTER - 
IS SEL HIDE - 
I DEFAULT = 7X! 
I SAVE = ' ' 
IS VARIANT = 
it events = it events 
IT EVENT EXIT = 
IS PRINT = 
IS REPREP ID = 
I SCREEN START COLUMN = 0 
I SCREEN START LINE = 0 
I SCREEN END COLUMN = 0 
0 
0 
0 


X ж X % х хо ж X 


I SCREEN END LINE = 
I HTML HEIGHT ТОР - 
I HTML HEIGHT END - 
IT ALV GRAPHICS - 
IT HYPERLINK - 
IT ADD FIELDCAT - 
IT EXCEPT QINFO - 
IR SALV FULLSCREEN ADAPTER 
IMPORTING 
E EXIT CAUSED BY CALLER - 
ES EXIT CAUSED BY USER - 
TABLES 
t outtab 
* EXCEPTIONS 
Ч PROGRAM ERROR - 1 
= ОТНЕК5 = 2 


X X X X X X X X X X X X х ж ж * X 
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IF sy-subrc <> 0. 
* Implement suitable error handling here 
ENDIF. 


*& Form GET CUST DATA 


FORM get cust data. 
DATA: it list TYPE slis t listheader, 
wa list TYPE LINE ОР 5115 + listheader. 


CLEAR wa 115%. 

wa list-typ - 'H'. 

wa list-info - "СЕТ THE DETAILS OF CUSTOMER'. 
APPEND wa list TO it 1151. 


CLEAR wa 115%. 

ма list-typ - 'S'. 

wa list-info - "СЕТ THE DETAILS OF CUSTOMER'. 
APPEND wa list TO it list. 


CLEAR wa 115%. 

wa list-typ - 'A'. 

wa list-info - "СЕТ THE DETAILS OF CUSTOMER'. 
APPEND wa list TO it 11651. 


CALL FUNCTION 'REUSE ALV COMMENTARY WRITE' 


EXPORTING 
it list commentary = it list 
i logo = 'ENJOYSAP 1060! 
* I END OF LIST GRID - 
u I ALV FORM = 
ENDFORM. "GET CUST DATA 


7.00 ALV PROGRAM 


*& Report  ZRISHI 00 ALV 

REPORT 2гі5һі oo alv. 

DATA : o container TYPE REF TO cl gui custom container, 
o grid TYPE REF TO cl gui alv grid, 


it Кпа1 TYPE TABLE OF Кпа1. 


CLASS lcl event receiver DEFINITION. 
PUBLIC SECTION. 
METHODS : handle double click FOR EVENT double click 
OF cl gui alv grid IMPORTING e row e column, 


handle toolbar FOR EVENT toolbar 
OF cl gui alv grid IMPORTING e object, 


handle user command FOR EVENT user command 
OF cl gui alv grid IMPORTING e ucomm. 


ENDCLASS. “Ісі event receiver DEFINITION 
*Implement Event Handler CLass 
CLASS ԼՇԼ event receiver IMPLEMENTATION. 


METHOD handle user command. 
DATA it lfal TYPE TABLE OF lfal. 
CASE e ucomm. 
WHEN 'GETAI'. 
IF it knal IS NOT INITIAL . 
SELECT * INTO TABLE it lfal FROM lfal FOR ALL ENTRI 
ES IN it knal 
WHERE kunnr - it kn 
al-kunnr. 
CALL FUNCTION 'REUSE ALV GRID DISPLAY' 
EXPORTING 
I INTERFACE CHECK = ' ' 
I BYPASSING BUFFER = ' ' 
I BUFFER ACTIVE Տ" 
I CALLBACK PROGRAM Տ" 
I CALLBACK PF STATUS SET Տ" 


ххх ж Հ 


x охо охо ж 


-OX* X X X X X X ж X хо X X 


x x 


EVENTS 


X X X X X X ж X X X X X X X X * X 


I CALLBACK USER COMMAND 
I CALLBACK ТОР ОҒ PAGE 
I CALLBACK HTML TOP ОҒ PAGE 


I CALLBACK HTML END OF LIST 


i structure name 


I BACKGROUND ID 
I GRID TITLE 

I GRID SETTINGS 
IS LAYOUT 

IT FIELDCAT 

IT EXCLUDING 
IT SPECIAL GROUPS 
IT SORT 

IT FILTER 

IS SEL HIDE 

I DEFAULT 

I SAVE 


IS VARIANT 
IT EVENTS 


IT EVENT EXIT 

IS PRINT 

IS REPREP ID 

I SCREEN START COLUMN 
I SCREEN START LINE 
I SCREEN END COLUMN 
I SCREEN END LINE 

I HTML HEIGHT TOP 
I HTML HEIGHT END 
IT ALV GRAPHICS 

IT HYPERLINK 

IT ADD FIELDCAT 

IT EXCEPT. QINFO 


IR SALV FULLSCREEN ADAPTER 


IMPORTING 


TABLES 


E EXIT CAUSED BY CALLER 
ES EXIT CAUSED BY USER 


t outtab 


it lfal 


ж 
ж 


X ож Հ X X Հ X Հ X 


EXCEPTIONS 
PROGRAM ERROR 
OTHERS 


IF sy-subrc <> 0. 
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
ENDIF. 
ENDIF. 
ENDCASE. 
ENDMETHOD. "handle user command 


METHOD handle toolbar. 
DATA wa button TYPE LINE OF ttb button. 
wa button-function - 'GETAI'. 
wa button-text - 'GetAllItems'. 
APPEND wa button TO e object--»mt toolbar. 


ENDMETHOD. "handle toolbar 


METHOD handle double click. 
DATA : wa knal TYPE knal, 
it lfal TYPE TABLE OF lfal. 
READ TABLE it knal INTO wa knal INDEX e row-index. 


IF e column - 'KUNNR'. 
SELECT * INTO TABLE it lfal FROM lfal 


WHERE kunnr - wa knal-kunnr. 


CALL FUNCTION 'REUSE ALV GRID DISPLAY' 
EXPORTING 


I INTERFACE CHECK 

I BYPASSING BUFFER 

I BUFFER ACTIVE 

I CALLBACK PROGRAM 

I CALLBACK PF STATUS SET 
I CALLBACK USER COMMAND 
I CALLBACK TOP OF PAGE 


I CALLBACK HTML TOP OF PAGE = 
I CALLBACK HTML END OF LIST = 


- X X X X X X X X X хо X X 


x x 


< 
m 
š 
տ 


X X X X X X X ж X X X X X X ж * X 


i structure name = 'ԼՒր1' 
I BACKGROUND ID 
I GRID TITLE 
I GRID SETTINGS 
IS LAYOUT 
IT FIELDCAT 
IT EXCLUDING 
IT SPECIAL GROUPS 
IT SORT 
IT FILTER 
IS SEL HIDE 
I DEFAULT 
I SAVE 


IS VARIANT 
IT EVENTS 


IT EVENT EXIT 
IS PRINT 
IS REPREP ID 
I SCREEN START COLUMN 
I SCREEN START LINE 
I SCREEN END COLUMN 
I SCREEN END LINE 
I HTML HEIGHT TOP 
I HTML HEIGHT END 
IT ALV GRAPHICS 
IT HYPERLINK 
IT ADD FIELDCAT 
IT EXCEPT QINFO 
IR SALV FULLSCREEN ADAPTER 
IMPORTING 
E EXIT CAUSED BY CALLER 
ES EXIT CAUSED BY USER 
TABLES 
t outtab - it lfal 
EXCEPTIONS 
PROGRAM ERROR 
OTHERS 


IF sy-subrc <> 0. 
ж MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 


* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 5Ү-М56/4. 
ENDIF. 
ENDIF. 
ENDMETHOD. "handle double click 
ENDCLASS. “Ісі event receiver IMPLEMENTATI 
ON 


DATA о event rcvr TYPE REF TO lcl event receiver. 


START - ОР - ЅЕСЕСТІОМ. 
CALL SCREEN 9000. 


MODULE read data OUTPUT. 
SELECT * INTO TABLE it knal FROM knal WHERE Тапа1 = 'US'. 


ENDMODULE. " READ DATA | OUTPUT 

y C MM M тышлы шы атан теме 
шоуг ж 

ж Module DISPLAY DATA OUTPUT 

- У RP —————  ——GÓru гаг ա անապատական արն Աե 
татыш эе * 

Ж їехї 

ЕЕ а ԱՏ ՈՏԻ я xl ЕЕ u а D ила => 
— ыа аи ш ш ж 


MODULE display data OUTPUT. 
CREATE OBJECT o container 


EXPORTING 
ա рагепт = 
container пате = '(1' 
* style = 


к lifetime - lifetime default 


геріа ш 
ауппғ = 
по autodef progid дуппг 
ЕХСЕРТТОМ5 

cntl error = 1 
cntl system error = 2 
сгеате еггог = 3 
lifetime error - 4 
lifetime dynpro dynpro link = 5 
others - 6 


X X X X X ж X ж ж ж 


IF sy-subrc <> 0. 

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 

à WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
ENDIF. 


x 


CREATE OBJECT o grid 
EXPORTING 
i shellstyle - 0 
i lifetime - 
i parent - 0 container 
i appl events = space 
i parentdbg - 
i applogparent ш 
i graphicsparent = 
i name - 
i fcat complete = space 
EXCEPTIONS 
error cntl create - 1 
error спїї init = 2 
error cntl link - 3 
еггог ар сгеате = 4 
others = 5 


x ox 


X X X X X X X ж X X X X 


IF sy-subrc <> 0. 

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 

ա WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 5Ү-М56/4. 
ENDIF. 


*Register the Event Handler Methods 


CREATE OBJECT о event гсуг. 


*For Each Event 


SET HANDLER : o event rcvr--handle double click FOR o g 

rid, 
o event rcvr--handle toolbar FOR o g 

rid, 
o event rcvr--handle user command FOR o g 

rid. 


CALL METHOD о grid-»set table for first display 

EXPORTING 

i buffer active 

i bypassing buffer - 

i consistency check - 

i structure name = 'КМА1' 

is variant - 

i save - 

i default = 'Х' 

is layout - 

is print - 

it special groups - 

it toolbar excluding ш 

it hyperlink - 

it alv graphics = 

it except qinfo ш 

ir salv adapter - 
CHANGING 

it outtab - it knal 

it fieldcatalog = 

it sort - 

it filter - 
EXCEPTIONS 

invalid parameter combination - 1 

program error - 2 

too many lines - 3 

others - 4 


x 


x - 


X X х X X X X Հ X ж Հ 


X X Հ X X Հ ж Հ 


IF sy-subrc <> 0. 
ж MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 


* WITH 5Ү-М56/1 SY-MSGV2 SY-MSGV3 5Ү-М56/4. 
ENDIF. 


ENDMODULE. " DISPLAY DATA | OUTPUT 
rcc E RE MERE NEN 
жайы и ака аай * 

*& Module STATUS 9000 | OUTPUT 

Мыш ы иче EET 
P ж 

ж text 

Жз хз И И а Ы ЕУ лу աա աա л лш ле UTC БЕТЕ Е 
Пе леви ынаны ж 


MODULE status 9000 OUTPUT. 
SET PF-STATUS 'ZSTATUS'. 


ж SET TITLEBAR "ххх". 


ENDMODULE. " STATUS 9000 OUTPUT 

болы eem 
ИЕ жоюн ш ж 

*& Module | USER COMMAND 9000 INPUT 

а P M PEE 
per ж 

ж text 

S ус жш шлш ы лаш амы ы сш S Е ПН л S ас ш NS AUR 
тышы ш алш ш ж 


MODULE user command 9000 INPUT. 
CASE sy-ucomm. 


WHEN 'BK'. 
LEAVE TO SCREEN 0. 
ENDCASE. 
ENDMODULE. " USER COMMAND 9000 INPUT 


8.00 ALV SECOND PROGRAM 


*& Report  ZRISHI 00 ALV ALL 


REPORT 211511 oo alv all. 

DATA : o container TYPE REF TO cl gui custom container, 
o grid TYPE REF TO cl gui alv grid, 
it ekko TYPE TABLE OF ekko. 


*Define Event Handler CLass 
CLASS lcl event receiver DEFINITION. 
PUBLIC SECTION. 
METHODS : handle double click FOR EVENT double click 
OF cl gui alv grid IMPORTING e row e column, 


handle toolbar FOR EVENT toolbar 
OF cl gui alv grid IMPORTING e object, 


handle user command FOR EVENT user command 
OF cl gui alv grid IMPORTING e ucomm. 


ENDCLASS. "LCL EVENT RECEIVER DEFINITION 


*Implement Event Handler CLass 
CLASS ԼՇԼ event receiver IMPLEMENTATION. 


METHOD handle user command. 
DATA it ekpo TYPE TABLE OF ekpo. 
CASE e ucomm. 
WHEN 'GETAI'. 
IF it ekko IS NOT INITIAL . 
SELECT * INTO TABLE it ekpo FROM ekpo FOR ALL ENTRI 
ES IN it ekko 
WHERE ebeln - it ek 
ko-ebeln. 
CALL FUNCTION 'REUSE ALV GRID DISPLAY' 


ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
1 
ж 
ж 
EVENTS 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 
ж 


EXPORTING 
I INTERFACE CHECK 
I BYPASSING BUFFER 
I BUFFER ACTIVE 
I CALLBACK PROGRAM 
I CALLBACK PF STATUS SET 
I CALLBACK USER COMMAND 
I CALLBACK TOP OF PAGE 
I CALLBACK HTML TOP OF PAGE 
I CALLBACK HTML END OF LIST 
i structure name 
I BACKGROUND ID 
I GRID TITLE 
I GRID SETTINGS 
IS LAYOUT 
IT FIELDCAT 
IT EXCLUDING 
IT SPECIAL GROUPS 
IT SORT 
IT FILTER 
15 SEL HIDE 
I DEFAULT 
I SAVE 


IS VARIANT 
IT EVENTS 


IT EVENT EXIT 

IS PRINT 

IS REPREP ID 

I SCREEN START COLUMN 
I SCREEN START LINE 
I SCREEN END COLUMN 
I SCREEN END LINE 

I HTML HEIGHT TOP 
I HTML HEIGHT END 
IT ALV GRAPHICS 

IT HYPERLINK 

IT ADD FIELDCAT 

IT EXCEPT QINFO 


IR SALV FULLSCREEN ADAPTER 
IMPORTING 
E EXIT CAUSED BY CALLER 
ES EXIT CAUSED BY USER 


жж ож ж 


TABLES 
t outtab - it ekpo 
* ЕХСЕРТТОМ5 
z PROGRAM ERROR 
i OTHERS 


IF sy-subrc <> 0. 
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 


т МІТН 5Ү-М56/1 5Ү-М56/2 5Ү-М56/3 5Ү-М56/4. 
ENDIF. 
ENDIF. 
ЕМОСАБЕ. 
ENDMETHOD. "HANDLE USER COMMAND 


METHOD handle toolbar. 
DATA wa button TYPE LINE OF ttb button. 
wa button-function - 'GETAI'. 
wa button-text - 'GetAllItems'. 
APPEND wa button TO e object--»mt toolbar. 


ENDMETHOD. "HANDLE TOOLBAR 


METHOD handle double click. 
DATA : wa ekko TYPE ekko, 
it ekpo TYPE TABLE OF ekpo. 
READ TABLE it ekko INTO wa ekko INDEX e row-index. 


IF e column - 'EBELN'. 
SELECT * INTO TABLE it ekpo FROM ekpo 
WHERE ebeln - wa ekko-ebeln. 


CALL FUNCTION 'REUSE ALV GRID DISPLAY' 
EXPORTING 

* I INTERFACE CHECK 

* I BYPASSING BUFFER 

* I BUFFER ACTIVE 


X ж ж хохо» 


-OX* X X X X X X X X хо X X 


x x 


< 
m 
š 
տ 


X X X X X X X X X X X X X X X х ж 


I CALLBACK PROGRAM 

I CALLBACK PF STATUS SET 

I CALLBACK USER COMMAND 

I CALLBACK ТОР OF PAGE 

I CALLBACK HTML TOP OF PAGE 

I CALLBACK HTML END OF LIST 
i structure name - 'EKPO' 

I BACKGROUND ID 

I GRID TITLE 

I GRID SETTINGS 

IS LAYOUT 

IT FIELDCAT 

IT EXCLUDING 

IT SPECIAL GROUPS 

IT SORT 

IT FILTER 

IS SEL HIDE 

I DEFAULT 

I SAVE 


IS VARIANT 
IT EVENTS 


IT EVENT EXIT 

IS PRINT 

IS REPREP ID 

I SCREEN START COLUMN 

I SCREEN START LINE 

I SCREEN END COLUMN 

I SCREEN END LINE 

I HTML HEIGHT TOP 

I HTML HEIGHT END 

IT ALV GRAPHICS 

IT HYPERLINK 

IT ADD FIELDCAT 

IT EXCEPT QINFO 

IR SALV FULLSCREEN ADAPTER 
IMPORTING 

E EXIT CAUSED BY CALLER 

ES EXIT CAUSED BY USER 


TABLES 


t outtab - it ekpo 
ый EXCEPTIONS 
Ы PROGRAM ERROR - 1 
* ОТНЕК5 = 2 


IF sy-subrc <> 0. 
ж MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 


Ы WITH 5Ү-М56/1 SY-MSGV2 SY-MSGV3 5Ү-М56/4. 
ENDIF. 
ENDIF. 
ENDMETHOD. "HANDLE DOUBLE CLICK 
ENDCLASS. "LCL EVENT RECEIVER IMPLEMENTATI 
ON 


DATA o event rcvr TYPE REF TO lcl event receiver. 


START - OF -SELECTION. 
CALL SCREEN 9000. 


*& Module | DISPLAY ALV 9000 | OUTPUT 


MODULE display alv 9000 OUTPUT. 


CREATE OBJECT o container 
EXPORTING 
+ parent = 
container name = '(1' 
style = 
lifetime = lifetime default 
repid = 
dynnr = 
no autodef progid dynnr = 
EXCEPTIONS 
cntl_error = 1 


X ож X X X X X 


> cntl system error = 2 

Ж сгеате еггог = 3 
и lifetime error - 4 
Ы lifetime dynpro dynpro link = 5 

т others - 6 


IF sy-subrc <> 0. 

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 

m WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
ENDIF. 


CREATE OBJECT o grid 

EXPORTING 
i shellstyle - 0 
i lifetime - 
i parent - 0 container 
i appl events - space 
i parentdbg - 
i applogparent ш 
i graphicsparent = 
i name - 
i fcat complete - space 

EXCEPTIONS 
error cntl create - 1 
error cntl init = 2 
error cntl link = 3 
error dp create = 4 
others = 5 


x Հ 


X X Հ Հ X X X ж Հ X Հ Հ 


IF sy-subrc <> 0. 

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 

T WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
ENDIF. 


*Register the Event Handler Methods 
CREATE OBJECT o event rcvr. 


*For Each Event 
SET HANDLER : o event rcvr--handle double click FOR o g 


rid, 

o event rcvr--handle toolbar FOR o g 
rid, 

o event rcvr--handle user command FOR o g 
rid. 


CALL METHOD o дгіа->ѕеї table for first display 
EXPORTING 
i buffer active - 
i bypassing buffer - 
i consistency check - 
i structure name - 'EKKO' 
is variant - 
i save - 
i default = Ը 
is layout = 
15 ргїпї = 
it special groups - 
it toolbar excluding - 
it hyperlink - 
it alv graphics - 
it except qinfo ш 
ir salv adapter = 
CHANGING 
it outtab - it ekko 
it fieldcatalog = 
it sort ш 
it filter - 
EXCEPTIONS 
invalid parameter combination 
program error - 2 
too many lines = 3 
others = 4 


хохо» 


X X% Հ % Հ Հ X X X X X 


II 
ка 


X жо» Հ Հ X X X 


IF sy-subrc <> 0. 

ж MESSAGE ID SY-MSGID ТҮРЕ SY-MSGTY NUMBER SY-MSGNO 

T WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
ENDIF. 


ENDMODULE. " DISPLAY ALV 9000 | OUTPUT 


Я —— '"————————————— — ————————————— 
TERN * 

*& Module | READ DATA 9000 OUTPUT 

РРР OEE EE A E Er n 
n * 


MODULE read_data 9000 OUTPUT. 
SELECT * INTO TABLE it ekko FROM ekko UP TO 20 ROWS 
WHERE bstyp = 'Е'. 


ENDMODULE. " READ DATA 9000 | OUTPUT 
"Perro ЕЕЕ ЕНГЕН СЕРЕ 
"e ж 

*& Module STATUS 9000 OUTPUT 

 — —  —— ————r———e— 
T — 44 * 


MODULE status_9000 OUTPUT. 
SET PF-STATUS 'ZSTATUS'. 
ж SET TITLEBAR "ххх". 


ENDMODULE. " STATUS 9000 OUTPUT 

v C "———— ————— ——/(Á— n 
m T лг ж 

ж Module USER COMMAND 9000 INPUT 

C-D"-—— —  ———— ———— — те 
лы ешле ж 


MODULE user command 9000 INPUT. 
CASE sy-ucomm. 


WHEN 'BK'. 
LEAVE TO SCREEN 90. 
ENDCASE. 
ENDMODULE. " USER COMMAND 9000 INPUT 


9.00 ALV EVENT HANDLING 


*& Report  ZRISHI 00 ALV EVENT HANDLING 


ENCEINTE 

NEIN * 

ж 

ж 

нання пане ин ИЕН л мш ыз сз ж зл => 
ж 


REPORT 211511 oo alv event handling. 
DATA : o container TYPE REF TO cl gui custom container, 


o grid TYPE REF TO cl gui alv grid, 
it knal TYPE TABLE OF Кпа1. 
е ОЕЕО ПИ ПИ աաա CDM mr" UID 
а оса ж 
" CLASS lcl event receiver DEFINITION 
rp MEE Ы тн кн жонын мі лана ы աա сн И тн эээ. сг. ээ 
зала ШҚ ж 
ж 
ЕНИ uc mnc о ДЕНЕ ақырғы 
ж 


CLASS ԼՇԼ event receiver DEFINITION. 
PUBLIC SECTION. 
METHODS : handle double click FOR EVENT double click 
OF cl gui alv grid IMPORTING e row e column, 


handle toolbar FOR EVENT toolbar 
OF cl gui alv grid IMPORTING e object, 


handle user command FOR EVENT user command 
OF cl gui alv grid IMPORTING e ucomm. 


ENDCLASS. “Ісі event receiver DEFINITION 


*Implement Event Handler CLass 
CLASS lcl event receiver IMPLEMENTATION. 


METHOD handle user command. 
DATA it lfal TYPE TABLE OF lfal. 
CASE e ucomm. 
WHEN 'GETAI'. 


ТЕ it knal IS NOT INITIAL . 
SELECT * INTO TABLE it lfal FROM lfal FOR ALL ENTRI 

ES IN it knal 
WHERE kunnr 


վ 
m- 
Դ 
х 
нэ! 


а1-Киппг. 
CALL FUNCTION ' ԲԷՍՏԷ ALV GRID DISPLAY' 
EXPORTING 
I INTERFACE CHECK = ' ' 
I BYPASSING BUFFER = ' ' 
I BUFFER ACTIVE = ' ' 
I CALLBACK PROGRAM = ' ' 
I CALLBACK PF STATUS SET = ' ' 
I CALLBACK USER COMMAND = ' ' 
I CALLBACK ТОР OF PAGE = ' ' 
I CALLBACK HTML ТОР OF PAGE = ' ! 
I CALLBACK HTML END OF LIST = ' ! 
i structure name = 'LFA1' 
I BACKGROUND ID = ' ' 
I GRID TITLE = 
I GRID SETTINGS = 
IS LAYOUT = 
IT FIELDCAT = 
IT EXCLUDING = 
IT SPECIAL GROUPS = 
ІТ SORT = 
IT FILTER - 
15 SEL HIDE - 
I DEFAULT = 'Х' 
I SAVE = ' 


X X Հ % X Հ X Հ X 


~- ж X X Հ X X X X X X X X 


x 


IS VARIANT = 
IT EVENTS = IT 


x 


EVENTS 
IT EVENT EXIT = 
IS PRINT = 
IS REPREP ID = 
I SCREEN START COLUMN = 
I SCREEN START LINE = 
I SCREEN END COLUMN - 
I SCREEN END LINE - 


X ож ох X X ж X 


X ож X X Հ X X X Հ X 


I HTML_HEIGHT TOP = 
I HTML HEIGHT END - 
IT ALV GRAPHICS - 


ІТ HYPERLINK = 


IT ADD FIELDCAT - 
IT EXCEPT QINFO - 
IR SALV FULLSCREEN ADAPTER - 
IMPORTING 
E EXIT CAUSED BY CALLER - 
ES EXIT CAUSED BY USER - 
TABLES 
t outtab - 1% lfal 
ЕХСЕРТТОМ5 
PROGRAM ERROR - 
OTHERS 


IF sy-subrc <> 0. 


* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 


ж 


WITH 5Ү-М56/1 SY-MSGV2 5Ү-М56/3 5Ү-М56/4. 
ENDIF. 


ENDIF. 


ENDCASE. 
ENDMETHOD . "handle user_command 


METHOD handle toolbar. 
DATA wa_button TYPE LINE OF ttb button. 
wa_button-function = 'GETAI'. 
wa_button-text = 'GetAllItems'. 
APPEND wa button ТО е object->mt_toolbar. 


ENDMETHOD . "handle toolbar 


METHOD 


DATA : 


READ 


IFe 


handle double click. 

wa knal TYPE knal, 

it lfal TYPE TABLE OF 14а1. 

TABLE it knal INTO wa knal INDEX e row-index. 


column = 'KUNNR'. 


SELECT * INTO TABLE it lfal FROM lfal 


WHERE kunnr - wa knal-kunnr. 


X X X X X X ж ж ж 


-OX* X X X X X X X X ох X X 


x x 


< 
m 
š 
տ 


X X X X X X ж X x % * 


CALL FUNCTION 'REUSE ALV GRID DISPLAY' 
EXPORTING 
I INTERFACE CHECK 
I BYPASSING BUFFER 
I BUFFER ACTIVE 
I CALLBACK PROGRAM 
I CALLBACK PF STATUS SET 
I CALLBACK USER COMMAND 
I CALLBACK TOP OF PAGE 
I CALLBACK HTML TOP OF PAGE 
I CALLBACK HTML END OF LIST 
i structure name = 'ԼՒր1' 
I BACKGROUND ID 
I GRID TITLE 
I GRID SETTINGS 
IS LAYOUT 
IT FIELDCAT 
IT EXCLUDING 
IT SPECIAL GROUPS 
IT SORT 
IT FILTER 
IS SEL HIDE 
I DEFAULT 
I SAVE 


IS VARIANT 
IT EVENTS 


IT EVENT EXIT 

IS PRINT 

IS REPREP ID 

I SCREEN START. COLUMN 
I SCREEN START LINE 
I SCREEN END COLUMN 
I SCREEN END LINE 
I HTML HEIGHT TOP 

I HTML HEIGHT END 
IT ALV GRAPHICS 

IT HYPERLINK 


ІТ ADD FIELDCAT - 
IT EXCEPT. QINFO - 
IR SALV FULLSCREEN ADAPTER - 

IMPORTING 
E EXIT CAUSED BY CALLER - 
ES EXIT CAUSED BY USER - 


X X XX X ж Հ 


TABLES 
t ош Тарб = 1% 1181 
Ի ЕХСЕРТТОМ5 
* PROGRAM ERROR - 1 
е ОТНЕК5 = 2 


IF sy-subrc <> 0. 
ж MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 


к WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 5Ү-М56/4. 
ENDIF. 
ENDIF. 
ENDMETHOD. "handle double click 
ENDCLASS. “Ісі event receiver IMPLEMENTATI 
ON 


DATA o event rcvr TYPE REF ТО lcl event receiver. 


START -OF-SELECTION. 
CALL SCREEN 9000. 


*& Module | DISPLAY ALV 9000 | OUTPUT 


MODULE display alv 9000 OUTPUT. 


CREATE OBJECT o container 
EXPORTING 
ա рагепт = 
container пате = '(1' 
ы style ш 


X X X X X X X X ж ж X 


x 


X X X X X X X X X ж x X 


lifetime = lifetime default 
repid = 
dynnr = 
no autodef progid dynnr = 
EXCEPTIONS 
cntl error = 1 
cntl system error = 2 
сгеате еггог - 3 
lifetime error - 4 
lifetime dynpro dynpro link Հ 5 
others - 6 


IF sy-subrc <> 0. 

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 

ENDIF. 


CREATE OBJECT o grid 

EXPORTING 
i shellstyle = 0 
i lifetime - 
i parent - 0 container 
i appl events - space 
1 parentadbg = 
i applogparent ш 
i graphicsparent = 
i name - 
i fcat complete - space 

EXCEPTIONS 
error cntl create = 1 
error cntl init = 2 
error cntl link - 3 
еггог ар сгеате - 4 
others = 5 


IF sy-subrc Հ» 0. 

MESSAGE ID SY-MSGID ТҮРЕ SY-MSGTY NUMBER SY-MSGNO 
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 

ENDIF. 


*Register the Event Handler Methods 
CREATE OBJECT o event rcvr. 


*For Each Event 
SET HANDLER : o event rcvr--handle double click 
rid, 
o event rcvr--handle toolbar 
rid, 
o event rcvr--handle user command 
rid. 


CALL METHOD o grid-»set table for first display 
EXPORTING 
i buffer active - 
i bypassing buffer - 
i consistency check - 
i structure name = 'КМА1' 
is variant - 
i save - 
i default = 'Х' 
is layout - 
is print - 
it special groups - 
it toolbar excluding - 
it hyperlink - 
it alv graphics - 
it except qinfo = 
ir salv adapter - 
CHANGING 
it outtab - it knal 
it fieldcatalog - 
it sort - 
it filter - 
EXCEPTIONS 
invalid parameter combination 
program error - 2 
too many lines = 3 
others = 4 


х * Հ 


X Հ Կ X Հ Հ X X Հ Հ 


| 
~ 


X хо» Հ X X ж Հ 


FOR o ց 
FOR o g 


FOR o g 


IF sy-subrc <> 0. 
ж MESSAGE ID SY-MSGID ТҮРЕ SY-MSGTY NUMBER SY-MSGNO 


Е WITH SY-MSGV1 5Ү-М56/2 SY-MSGV3 SY-MSGV4. 
ENDIF. 

ENDMODULE. " DISPLAY АГИ 9000 OUTPUT 

CRT COPIER АНЫН КЕЕН 

EXITUS WEE * 

*& Module | READ DATA 9000 OUTPUT 

ИЕ Ակա արա ЕОМ пена Ре ЕКЕ ЕЕЕ СИЕ ЕЕЕ աան КЕ КЕТСЕ 

Вини лете * 


MODULE read_data_9000 OUTPUT. 
SELECT * INTO TABLE it knal FROM knal UP TO 20 ROWS 
WHERE Тапа1 = “ІМ”. 


ENDMODULE. " READ DATA 9000 | OUTPUT 

 — — —— ————— —— ———H— скі 
"P" ж 

*& Module STATUS 9000 OUTPUT 

ыы A 7 ери л EI ա աաա EE 
— — ж 


MODULE status 9000 OUTPUT. 
SET PF-STATUS 'ZSTATUS'. 
* SET ТІТГЕБАН “Ххх”, 


ENDMODULE. " STATUS 9000 OUTPUT 

Ж "AMI ————————Á———— eo———— — n WO 
шоог ог БЕ ж 

ж Module USER COMMAND 9000 INPUT 

Б EN РНКЕК ТЕККЕ КЕТКЕН E ЕЕРЕЕ 
m aU cS * 


MODULE user command 9000 INPUT. 
CASE sy-ucomm. 
WHEN 'BK'. 
LEAVE TO SCREEN 60. 
ENDCASE. 
ENDMODULE . " USER COMMAND 9000 INPUT 


10. 00 ALV EVENT HANDLING ALL 


REPORT zrishi 

DATA : o conta 
o grid 
it ekko 
o split 
o main 
o heade 
о docum 


*Define Event 

CLASS lcl even 

PUBLIC SECTI 
METHODS : 


ENDCLASS. 


оо ам events. 


iner TYPE REF TO cl gui custom container, 
TYPE REF TO cl gui alv grid, 
TYPE TABLE OF ekko, 

ter TYPE REF TO cl gui splitter container, 
TYPE REF TO cl gui container, 

r TYPE REF TO cl gui container, 

ent TYPE REF TO cl dd document. 


Handler CLass 

է гесеіуег DEFINITION. 

ON. 

handle double click FOR EVENT double click 
OF cl gui alv grid IMPORTING e row e column, 


handle toolbar FOR EVENT toolbar 
OF cl gui alv grid IMPORTING e object, 


handle user command FOR EVENT user command 
OF cl gui alv grid IMPORTING e ucomm, 


handle top of page FOR EVENT top of page 

OF cl gui alv grid, 
handle before user command FOR EVENT 
before user command OF cl gui alv grid 
IMPORTING e ucomm . 


“Ісі event receiver DEFINITION 


*Implement Event Handler CLass 


CLASS lcl even 


METHOD handl 
DATA : it 
ма 

1% 

ма 


t receiver IMPLEMENTATION. 


e before user command. 


index rows TYPE lvc t row, 


TYPE LINE OF lvc t row, 


Selected ekko TYPE TABLE OF ekko, 
| ekko TYPE ekko. 


CASE е ucomm. 


WHEN '&PC'. 


MESSAGE 'I am Executed before U' TYPE 'I'. 


*Returns Only the Indexs of the Selected Rows 
CALL METHOD o grid-»get selected rows 


*Get the Content by reading 


X X Հ % X Հ X Հ Հ Հ Հ X Հ X ж Հ Հ 


ТМРОКТТМО 
et index rows 


et row no = 


it index rows 


for Each Index In it index rows 


LOOP AT it index rows INTO wa. 


READ TABLE it ekko INTO 
wa ekko INDEX wa-index. 


APPEND wa ekko TO it selected ekko. 


ENDLOOP. 


CALL METHOD cl gui frontend services-»gui download 


EXPORTING 

bin filesize 
filename 

filetype 
append 
write field separator 
header 
trunc trailing blanks 
write lf 
col select 
col select mask 
dat mode 
confirm overwrite 
no auth check 
codepage 
ignore cerr 
replacement 
write bom 


trunc trailing blanks eol - 


wkl n format 


= 'F:7AM SELECTED. TXT' 

"А5С! 
5РАСЕ 
5РАСЕ 
'Qg ' 
SPACE 

хи 

5РАСЕ 
5РАСЕ 
5РАСЕ 
5РАСЕ 
5РАСЕ 
5РАСЕ 
АВАР TRUE 
РУ 

5РАСЕ 

72 

SPACE 


* wkl n size = SPACE 
Ж wkl t format = SPACE 
т wkl t size = SPACE 
T show transfer status = 'X' 
Ы fieldnames = 
* write lf after last line = 'X' 
ж IMPORTING 
ա filelength - 
CHANGING 
data tab - it selected ekko 
ж EXCEPTIONS 
ա file write error = 1 
* no batch = 2 
ա gui refuse filetransfer = 3 
d invalid type - 4 
= по authority = 5 
Ы unknown error - 6 
т header not allowed = 7 
" separator not allowed = 8 
к filesize not allowed - 9 
T header too long - 10 
* dp error create - 11 
T dp error send - 12 
Ы ар error write - 13 
ա unknown ар error - 14 
* access denied = 15 
а dp out of memory = 16 
T disk full - 17 
ա dp timeout - 18 
ա file not found - 19 
* dataprovider exception = 20 
* control flush error - 21 
d not supported by gui - 22 
ա еггог по ди1 - 23 
i others - 24 


IF sy-subrc - 0. 
MESSAGE 'selected Lines are Successfully Downloaded' 
ТҮРЕ "5". 
ENDIF. 


X ож Հ % X Հ X Հ ж X 


ULINE. 


CALL METHOD o дгіа->ѕеї user command 


EXPORTING 
i ucomm - space.  "Std.Function Decactivated 
ENDCASE. 
ENDMETHOD . "handle before user command 


METHOD handle top of page. 
CALL METHOD o document--add picture 
EXPORTING 
picture id = 'ENJOYSAP 1060! 
width = 
alternative text = 
tabindex - 


CALL METHOD o document--add text 
EXPORTING 
text - 'List Of Purchasing Documents' 
text table - 
fix lines - 
sap style ш 
sap color - 
sap fontsize - 
sap fontstyle - 
sap emphasis - 
style class - 
CHANGING 
document = 


CALL METHOD o document--add picture 
EXPORTING 
picture id = 'ENJOYSAP 1060! 
width - 
alternative text - 
tabindex = 


CALL METHOD o document--display document 
EXPORTING 
reuse control - 
reuse registration - 


ա container - 
parent - o header 
* EXCEPTIONS 
Ж html display error = 1 
> others - 2 


IF sy-subrc <> 0. 

ж MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 

x WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
ENDIF. 


ENDMETHOD. "handle top of page 


METHOD handle user command. 
DATA ії ekpo TYPE TABLE OF ekpo. 
CASE e ucomm. 
WHEN 'GETAI'. 
IF it ekko IS NOT INITIAL . 
SELECT * INTO TABLE it ekpo FROM ekpo FOR ALL 
ENTRIES IN it ekko 
WHERE ebeln - 
it ekko-ebeln. 
CALL FUNCTION 'REUSE ALV GRID DISPLAY' 
EXPORTING 
I INTERFACE CHECK = ‘б! 
I BYPASSING BUFFER = ' ' 
I BUFFER ACTIVE = ' ' 
I CALLBACK PROGRAM = ' ' 
I CALLBACK PF STATUS SET = ‘б! 
I CALLBACK USER COMMAND = ' ' 
I CALLBACK ТОР OF PAGE = ‘б! 
I CALLBACK HTML ТОР OF PAGE = ' ' 
I CALLBACK HTML END OF LIST = ' ' 
i structure пате = 'EKPO' 
Ի I BACKGROUND ID = ' ' 


X жо ож X X Հ X Հ X 


X X X X X X X X X X X X X X X X X X X X X X X X X X X хо x * 


I GRID TITLE = 
I GRID SETTINGS = 
IS LAYOUT = IS LAYOUT 
IT FIELDCAT = 
IT EXCLUDING = 
IT SPECIAL GROUPS - 
IT SORT - 
IT FILTER - 
IS SEL HIDE - 
I DEFAULT = 'X' 
I SAVE = ' ' 
IS VARIANT - 
IT EVENTS - IT EVENTS 
IT EVENT EXIT - 
IS PRINT - 
IS REPREP- ID - 
I SCREEN START COLUMN - 
I SCREEN START LINE - 
I SCREEN END COLUMN - 
I SCREEN END LINE - 
I HTML HEIGHT TOP - 
I HTML HEIGHT END = 
ІТ ALV GRAPHICS - 
IT HYPERLINK - 
IT ADD FIELDCAT - 
IT EXCEPT ОТМЕО - 
IR SALV FULLSCREEN ADAPTER = 
IMPORTING 
E EXIT CAUSED BY CALLER - 
ES EXIT CAUSED BY USER - 
TABLES 
t outtab - it ekpo 
EXCEPTIONS 
PROGRAM ERROR = 1 
ОТНЕК5 = 2 


© © ՓՓՓՓԺՓ 


IF sy-subrc <> 0. 


ж MESSAGE ID SY-MSGID ТҮРЕ SY-MSGTY NUMBER SY-MSGNO 


WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 5Ү-М56/4. 
ENDIF. 


X X Հ Հ X X X ж Հ 


X х» Հ X Հ ж X 


ENDIF. 
ENDCASE. 
ENDMETHOD. "handle user command 


METHOD handle toolbar. 
DATA wa button TYPE LINE OF ttb button. 
wa button-function - 'GETAI'. 
ма button-text = 'GetAllItems'. 
APPEND wa button TO e object-»mt toolbar. 


ENDMETHOD. "handle toolbar 


METHOD handle double click. 
DATA : wa ekko TYPE ekko, 
it ekpo TYPE TABLE OF ekpo. 
READ TABLE it ekko INTO wa ekko INDEX e row-index. 


IF e column - 'EBELN'. 
SELECT * INTO TABLE it ekpo FROM ekpo 
WHERE ebeln - wa ekko-ebeln. 


CALL FUNCTION 'REUSE ALV GRID DISPLAY' 
EXPORTING 

I INTERFACE CHECK = ' 
I BYPASSING BUFFER = ' 
I BUFFER ACTIVE = ' 
I CALLBACK PROGRAM = ' 
I CALLBACK PF STATUS SET = ' 
I CALLBACK USER COMMAND = ' 
I CALLBACK ТОР OF PAGE = ' 
I CALLBACK HTML ТОР OF PAGE = ' 
I CALLBACK HTML END ОР LIST = ' 

i structure name - 'EKPO 
I BACKGROUND ID = ' 
I GRID TITLE - 
I GRID SETTINGS - 
IS LAYOUT - 
IT FIELDCAT - 
IT EXCLUDING - 
IT SPECIAL GROUPS - 


X 0X X X X X X X X X X X X X X X X X X X X X X X 


TABLES 


IT SORT 
IT FILTER 

IS SEL HIDE 

I DEFAULT 

I SAVE 

IS VARIANT 

IT EVENTS 

IT EVENT EXIT 

IS PRINT 

IS REPREP ID 

I SCREEN START COLUMN 
I SCREEN START LINE 
I SCREEN END COLUMN 
I SCREEN END LINE 

I HTML HEIGHT TOP 

I HTML HEIGHT END 

IT ALV GRAPHICS 

IT HYPERLINK 

IT ADD FIELDCAT 

IT EXCEPT QINFO 


IR SALV FULLSCREEN ADAPTER 
IMPORTING 
E EXIT CAUSED BY CALLER 
ES EXIT CAUSED BY USER 


t outtab 
Ж ЕХСЕРТТОМ5 


РКОСКАМ_ЕККОК 
ОТНЕК5 


IF sy-subrc <> 0. 
ж MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 


- IT EVENTS 


© © © ооб 


із WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 5Ү-М56/4. 
ENDIF. 
ENDIF. 
ENDMETHOD. "handle double click 


ENDCLASS. 
IMPLEMENTATION 


"ІСІ event receiver 


DATA o event гсуг ТҮРЕ REF ТО lcl event receiver. 


START - ОР - SELECTION. 
CALL SCREEN 9000. 


MODULE display alv 9000 OUTPUT. 
DATA is layout TYPE lvc s layo. 
is layout-sel mode = 'D'. "Allows Multi Line Selection 


CREATE OBJECT o grid 
EXPORTING 

к i shellstyle = 0 
5 i lifetime - 

i parent - 0 main 
m i appl events = space 
T i parentdbg - 
ա i applogparent ш 
+ i graphicsparent = 
" i name - 
* i fcat complete | - space 
* EXCEPTIONS 
Ы error cntl create = 1 
* error cntl init = 2 
* error cntl link = 3 
Т error dp create = 4 
d others = 5 


IF sy-subrc <> 0. 

ж MESSAGE ID SY-MSGID ТҮРЕ SY-MSGTY NUMBER SY-MSGNO 

T WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 5Ү-М56/4. 
ENDIF. 


*Register the Event Handler Methods 
CREATE OBJECT o event rcvr. 


*For Each Event 


SET HANDLER : o event rcvr--handle double click FOR 
o grid, 
o event rcvr--handle toolbar FOR 
o grid, 
o event rcvr--handle user command FOR 
o grid, 
o event rcvr--handle top of page FOR 
o grid, 
o event rcvr--handle before user command FOR 
o grid. 


CREATE OBJECT o document 


*To Trigger the List Processing Event -> "ТОР OF PAGE' 


CALL METHOD o grid--list processing events 


EXPORTING 
i event name - "ТОР OF PAGE' 
i dyndoc id - 0 document 


is subtottxt info 

ip subtot line 

i table index 
CHANGING 

c subtottxt 


ххх ж Հ 


DATA : it fieldcat TYPE lvc t fcat, 
wa fieldcat TYPE LINE OF lvc t fcat. 


CALL FUNCTION 'LVC FIELDCATALOG MERGE' 
EXPORTING 
* I BUFFER ACTIVE = 
i structure пате - 'EKKO' 
* I CLIENT NEVER DISPLAY = 'X' 


ххх X Հ X X 


X хо» X X Հ Հ 


I BYPASSING BUFFER - 
I INTERNAL TABNAME - 


CHANGING 
ct fieldcat - it fieldcat 
EXCEPTIONS 
INCONSISTENT INTERFACE - 1 
РКОСКАМ_ЕККОК = 2 
ОТНЕК5 - 3 


IF sy-subrc <> 0. 
Implement suitable error handling here 
ENDIF. 


CLEAR wa fieldcat. 
wa fieldcat-emphasize - 'C71'. 
MODIFY it fieldcat FROM wa fieldcat TRANSPORTING emphasize 
WHERE fieldname - 'LIFNR'. 
CALL METHOD о grid-»-set table for first display 
EXPORTING 

i buffer active = 

i bypassing buffer - 

i consistency check - 


i structure name = 'ЕККО' 

is variant = 

i save - 

i default = 'Х' 

is layout - is layout 
is print - 


it special groups = 
it toolbar excluding = 
it hyperlink - 
it alv graphics - 
it except qinfo = 
ir salv adapter - 


CHANGING 
it outtab - it ekko 
it fieldcatalog - it fieldcat 
it sort - 
it filter - 


EXCEPTIONS 


invalid parameter combination = 
program error ш 
too many lines - 
others - 


ж ж Հ X 


ԷՀ ա N Հ 


IF sy-subrc <> 0. 
ж MESSAGE ID SY-MSGID ТҮРЕ SY-MSGTY NUMBER SY-MSGNO 


ա WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
ENDIF. 
ENDMODULE. " DISPLAY ALV 9000 OUTPUT 
T — ——— -—————n——Á— Üor(—— 
Әлмен ка * 
*& Module READ DATA 9000 OUTPUT 
Fee 2  ——s—————— ээн 
SETE * 


MODULE read_data 9000 OUTPUT. 
SELECT * INTO TABLE it ekko FROM ekko UP TO 20 ROWS 
WHERE bstyp = 'F'. 


ENDMODULE. " READ DATA 9000 | OUTPUT 
И ———— "—Há— 
T ж 

*& Module STATUS 9000 OUTPUT 

9 """€———————— ~ он о HH" 
— Ене ж 


MODULE status 9000 OUTPUT. 
SET PF-STATUS 'ZSTATUS'. 
* SET TITLEBAR 'xxx'. 


ENDMODULE. " STATUS 9000 OUTPUT 

Op ERN лш лш» 
"——— = * 

ж Module USER COMMAND 9000  INPUT 

ж РНЕК ИЕ ИРЕК ЕЕЕ ТЕРЕК КЕТЕ ЕЕЕ ЕЕ СИЕ ит ЕЕ КЕРЕК DEL 
=: s ы = ж 


MODULE user command 9000 INPUT. 


CASE sy-ucomm. 


WHEN 'BK'. 
LEAVE TO SCREEN 0. 

ENDCASE. 
ENDMODULE . " USER COMMAND 9000  INPUT 
Т RII RI PEIPER 
ерек аста * 
*& Module SPLIT CONTAINER 9000 OUTPUT 
 — etc ECCE EE 


MODULE split container 9000 OUTPUT. 

CREATE OBJECT o container 
EXPORTING 

= parent ш 
container name = '(1' 
style - 
lifetime = lifetime default 
repid ш 
дуппг ո 
по autodef progid dynnr - 

EXCEPTIONS 
cntl error = 1 
cntl system error - 2 
сгеате еггог = 3 
lifetime error = 4 
lifetime dynpro dynpro link = 5 
others = 6 


X X Հ Հ X X Հ X X Հ X 


IF sy-subrc <> 0. 

ж MESSAGE ID SY-MSGID ТҮРЕ SY-MSGTY NUMBER SY-MSGNO 

T WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGVA4. 
ENDIF. 


CREATE OBJECT o splitter 
EXPORTING 
link dynnr - 
link repid = 
shellstyle ш 
left - 


Тор ш 

width - 

height - 

metric = cntl metric dynpro 

align = 15 

parent - 0 container 
rows - 2 

columns - 1 

no autodef progid ауппг = 

name ո 

ЕХСЕРТТОМ5 

cntl error = 1 

cntl system error = 2 

others - 3 


хх х ж X 


X хо» X ж X 


IF sy-subrc <> 0. 

ж MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 5Ү-М56/4. 
ENDIF. 


CALL METHOD o splitter--get container 
EXPORTING 
row = 1 
column = 1 
RECEIVING 
container = o header. 


CALL METHOD o splitter->get_container 


EXPORTING 
row - 2 
column = ] 
RECEIVING 


container - o main. 


CALL METHOD o splitter--set row height 


EXPORTING 
id = 1 
"Коџ1 
height - 25 


ж IMPORTING 


* result - 

* EXCEPTIONS 

i cntl error = 1 
T cntl system error = 2 
т others - 3 


IF sy-subrc <> 0. 

ж MESSAGE ID SY-MSGID ТҮРЕ SY-MSGTY NUMBER SY-MSGNO 

як WITH SY-MSGV1 5Ү-М56/2 SY-MSGV3 5Ү-М56/4. 
ENDIF. 


ENDMODULE. " SPLIT CONTAINER 9000 OUTPUT 


